home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Publication 17
/
Publication_17_19xx_Civitas_de_Side_B.d64
/
sayyearfish v3
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
1KB
|
48 lines
8 print"hommage to bejahfisch v3...":forg=1to1000:next
10 print"[147]"chr$(8):poke53280,14:poke53281,14
11 gosub100:gosub500:poke211,24:poke214,1:sys58732
12 print"what's that ???":forg=.to500:next:gosub200:gosub500:forg=.to500
13 next:poke211,16:poke214,3:sys58732:print"oh,no ! it really is..."
14 gosub300:gosub500:poke211,13:poke214,5:sys58732:forg=.to500:next
15 print"the allmighty bejahfisch !":gosub400:gosub500
16 forg=1to100:x=int(rnd(.)*10):y=int(rnd(.)*8):q=int(rnd(.)*13)
17 poke55296+y*40+x,q:next
18 forg=26to11step-1:poke211,g:poke214,1:sys58732:print" [157] [157] [157] [157] [157] [157] [157]
19 [129]q[178]1[164]30:[130]q,g:[129]g[178]4[164]1[169][171]1:[151]211,26:[151]214,g:[158]58732
20 [153]" ":[129]q[178]1[164]30:[130]q,g:q(1)[178]1:q(2)[178]13:q(3)[178]15:q(4)[178]12
21 q(5)[178]11:q(6)[178]6:q(7)[178]14:[129]g[178]1[164]7:[151]646,q(g):[151]211,38:[151]214,5:[158]58732
22 [153]"!":[129]q[178]1[164]30:[130]q,g
23 a$[178]"bejahfisch ":[129]g[178]27[164]9[169][171]1:[151]211,g:[151]214,5:[158]58732:[153]""a$
24 [129]q[178]1[164]30:[130]q,g:[129]g[178]1[164]6:[151]646,q(g):[151]211,20:[151]214,5:[158]58732
25 [153]"rulez !":[129]q[178]1[164]30:[130]q,g:[129]g[178].[164]5000:[130]:[158]64738
99 [128]
100 a$(0)[178]" "
101 a$(1)[178]" "
102 a$(2)[178]" (NULL)(NULL) "
103 a$(3)[178]" "
104 a$(4)[178]" "
105 a$(5)[178]" "
106 [142]
200 a$(0)[178]" "
201 a$(1)[178]" (NULL) "
202 a$(2)[178]" (NULL)(NULL)(NULL)(NULL) "
203 a$(3)[178]" (NULL) "
204 a$(4)[178]" "
205 a$(5)[178]" "
206 [142]
300 a$(0)[178]" (NULL)(NULL) "
301 a$(1)[178]" (NULL)(NULL)(NULL)(NULL)(NULL)(NULL) "
302 a$(2)[178]"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL) "
303 a$(3)[178]" (NULL)(NULL)(NULL)(NULL)(NULL) "
304 a$(4)[178]" (NULL)(NULL) "
305 a$(5)[178]" "
306 [142]
400 a$(0)[178]"(NULL) (NULL)(NULL)(NULL) "
401 a$(1)[178]"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL) "
402 a$(2)[178]"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL) "
403 a$(3)[178]"(NULL) (NULL)(NULL)(NULL)(NULL)(NULL) "
404 a$(4)[178]"(NULL) (NULL)(NULL) "
405 a$(5)[178]" "
406 [142]
500 [153]"":[129]g[178].[164]5:[153]" "a$(g):[130]:[142]